﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class CarritoBL
    'Instanciamos la clase CarritoDAO
    Dim carrito As New CarritoDAO

    Public Function ListarCarritos(ByVal objeto As BE.CarritoBE) As DataSet
        Return carrito.ListarCarritos(objeto)
    End Function

    Public Function ConsultarCarrito(ByVal objeto As BE.CarritoBE) As DataSet
        Return carrito.ConsultarCarrito(objeto)
    End Function

    Public Function LlenarCarrito(ByVal objeto As BE.CarritoBE) As Boolean
        Return carrito.LlenarCarrito(objeto)
    End Function

    Public Function QuitarItemdelCarrito(ByVal objeto As BE.CarritoBE) As Boolean
        Return carrito.QuitarItemdelCarrito(objeto)
    End Function

    Public Function ActualizarItemdelCarrito(ByVal objeto As BE.CarritoBE) As Boolean
        Return carrito.ActualizarItemdelCarrito(objeto)
    End Function

    Public Function ConsultarItemdelCarrito(ByVal objeto As BE.CarritoBE) As DataSet
        Return carrito.ConsultarItemdelCarrito(objeto)
    End Function

    Public Function ConsultarElementosdelCarrito(ByVal objeto As BE.CarritoBE) As DataSet
        Return carrito.ConsultarElementosdelCarrito(objeto)
    End Function

    Public Function EliminarCarrito(ByVal objeto As BE.CarritoBE) As Boolean
        Return carrito.EliminarCarrito(objeto)
    End Function

    Public Function EliminarCarritosPasados() As Boolean
        Return carrito.EliminarCarritosPasados
    End Function

    Public Function ChapaError() As String
        Return carrito.ChapaError
    End Function

End Class
